## load packages ----------------------------------------------------------------
#
#library(tidyverse)
#library(rvest)
#library(glue)
#
## list of urls to be scraped ---------------------------------------------------
#
#root <- "https://collections.ed.ac.uk/art/search/*:*/Collection:%22edinburgh+college+of+art%7C%7C%7CEdinburgh+College+of+Art%22?offset="
#numbers <- seq(from = ___, to = ___, by = ___)
#urls <- glue("{___}{___}")
#
## map over all urls and output a data frame ------------------------------------
#
#___ <- map_dfr(___, ___)
#
## write out data frame ---------------------------------------------------------
#
#write_csv(uoe_art, path = "data/uoe-art.csv")
